home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / LISP Related / LISP Goodies / menu enhancements / load-demos-old.lisp < prev    next >
Encoding:
Text File  |  1992-09-02  |  828 b   |  27 lines  |  [TEXT/CCL2]
  1. (in-package cl-user)
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;; load-demos.lisp
  4. ;;
  5. ;; Copyright © 1992 University of Toronto, Department of Computer Science
  6. ;; All Rights Reserved
  7. ;;
  8. ;; author: Mark A. Tapia
  9. ;; 
  10. ;; Edit this file and change the directory structure if the
  11. ;; menu enhancements are not stored in the "menu enhancements" folder 
  12. ;; in the main CCL directory 
  13. ;;
  14. ;; Load this file when running MCL2.0b1 
  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16.  
  17. (defparameter mcl-final nil)
  18. (defparameter menu-dir nil)
  19.  
  20. (def-logical-directory "menu-dir" "ccl;menu enhancements")
  21. (setq menu-dir "menu-dir;")
  22. (load (format nil "~amake-menus.lisp" menu-dir))
  23. (set-mac-default-directory (mac-directory-namestring menu-dir))
  24.  
  25. (use-package 'menus)
  26. (menus::load-demos)
  27.